Clock tutorial code
--------------------------------
DefProcTick
Rem
Called when window gets an null event
Rem
Declare local variable
Local
tic$
Rem
Put rightmost 8 characters from system variable
Time$ into tic$
tic$=Right$(Time$,8)
Rem
Check tic$ against time currently displayed
in global variable old$
Rem
If different update clock$ and make old$ the
same
If
tic$<>global:old$
Then
Main:clock$=tic$
global:old$=tic$
EndIf
Endproc